EnigmA Amiga Run 1998 January/EnigmA AMIGA RUN 24 (1997)(G.R. Edizioni)(IT)[!][issue 1998-01 & 02].iso/EARCD/DEMO/MSE-DEMO/definitions/Test/Test.def

Text File | 1997-06-19 | 5KB | 384 lines

Define Device (
    Manufacturer "Test"
    Device "Test"
    CharSet (
        az2AZ
        Disable (
            ' !   #   %   &   (   )   :   ;   ?   @   [   ]   ^   ` {|}~
            $21 $23 $25 $26 $28 $29 $3A $3B $3F $40 $5B $5D $5E $60 $7B-$7E
        )
        Remap (
            $3C to $28 ' < (
            $3E to $29 ' > )
        )
    )
    NoteRange 20 50
)

Define Usage (
    "Important usage information"
    "can be defined as well!"
    "------------------------------------"
    "It's a great way to remind yourself"
    "about things you need to remember"
    "about each module!"
)

Define Font "Topaz2" (
    Name "Topaz2.font"
    Size 8
)

Define Font "Garnet" (
    Name "Garnet.font"
    Size 16
    Style ( BOLD )
)

Define Font "Numbers" (
    Name "Topaz2N.font"
    Size 8
)

Define Font "Helvetica" (
    Name "Helvetica.font"
    Size 9
)

Define Font "Topaz2p" (
    Name "Topaz2p.font"
    Size 8
)

'Set Font "Topaz2"

Define Window "Main" (
    Position 10 19
    Size 340 200
    Border
)

Define Window "Second" (
    Position 350 16
    Size 250 250
)

Define Window "Third" (
    Position 10 240
    Size 250 150
    Border
)

Define Window "Draggable" (
    Position 330 290
    Size 300 100
    DragBar
)

Define Link "SliderTextTest" (
    Type Texts (
        Font "Helvetica"
        Position 0 19
        Size 100 8
        Data (
            "1"
            "Neeto!"
            "Special Gadget"
            "Sting"
            "5"
            "Perfect for me"
        )
    )
)

Define Link "EQ_Gain" (
    Type Numbers (
        Font "Helvetica"
        Position 0 -12
        Size 100 8
        MinValue -12
        Skip .1
        LevelText "dB"
    )
)

Define Link "Note" (
    Type Note (
        Font "Numbers"
        Position 0 -12
        Size 100 8
    )
)

Define Link "Auto-E" (
    Type ARexx (
        File "modules/Test/Test.rexx"
    )
)

'Define Link "Auto-Int"
'    Type ARexx (
'        String "SetGad 1 50"
'    )
')


Window "Main" (
    Border (
        Position 10 10
        Size 320 180
        Frame 3D-Recess
    )

    Border (
        Position 233 20
        Size 38 26
        Fill 1
        Frame None
    )
    Border (
        Position 271 20
        Size 38 26
        Fill 3
        Frame None
    )

    Text "ABCDEFGHIJK" (
        Position 240 35
        Font "Numbers"
        Color 2
    )

    Gadget "1" (
        Position 20 60
        Font "Numbers"
        Type Slider (
            Range 0 127
            Default 5
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
        )
    )

    Gadget "2" (
        Position 20 72
        Font "Numbers"
        Type Slider (
            Range 0 127
            Default 110
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
        )
    )

    Gadget "3" (
        Position 20 84
        Font "Numbers"
        Type Slider (
            Range 0 127
            Default 42
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
        )
    )

    Gadget "4" (
        Position 20 96
        Font "Numbers"
        Type Slider (
            Range 0 127
            Default 10
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
        )
    )

    Gadget "5" (
        Position 20 108
        Font "Numbers"
        Type Slider (
            Range 0 127
            Default 127
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
        )
    )

    Gadget "ARexxTest1" (
        Position 20 45
        Type Button (
            Label "Automate"
            Size 100 12
            Link "Auto-E"
        )
    )

    Gadget "TextTest" (
        Position 180 80
        Type Slider (
            Range 0 4
            Size 100 15
            Direction HORIZONTAL
            Default 2
            Link "SliderTextTest"
        )
    )

    Gadget "A" (
        Position 180 140
        Font "Numbers"
        Type Slider (
            Range 0 200
            Default 51
            Size 100 10
            Direction HORIZONTAL
            Link "EQ_Gain"
        )
    )
)

Window "Second" (
    Border (
        Position 20 10
        Size 150 150
        Fill 3
    )

    Gadget "Borna" (
        Position 200 60
        Font "Numbers"
        Type Slider (
            Range 10 99
            Size 15 100
            Direction VERTICAL
            LevelPlace BELOW
            LevelText "goombas"
        )
    )

    Gadget "Cycla" (
        Position 80 60
        Type Cycle (
            Width 3
            Data (
                "OFF"
                "ON"
                "YES"
            )
        )
    )

    Gadget "Cyclab" (
        Position 80 80
        Type Cycle (
            Width 3
            Data (
                "One"
                "Two"
                "Three"
            )
            DataValues (
                3 7 $12
            )
        )
    )

    Gadget "Name" (
        Position 40 115
        Font "Topaz2"
        Type String (
            MaxChars 10
        )
    )

    Text DEVICE (
        Position 40 35
        Font "Garnet"
    )
)

Window "Third" (
    Gadget "ListTest" (
        Position 10 10
        Type List (
            Size 150 100
            Data (
                "Item 0 - FIRST"
                "Item 1"
                "Item 2"
                "Item 3"
                "Item 4"
                "Item 5"
                "Item 6"
                "Item 7"
                "Item 8"
                "Item 9"
                "Item 10"
                "Item 11"
                "Item 12"
                "Item 13"
                "Item 14"
                "Item 15"
                "Item 16"
                "Item 17 - LAST"
            )
            Default 15
        )
    )
)

Window "Draggable" (
    Text "Drag me!" (
        Position 20 35
        Font "Garnet"
        Color 2
        Shadow
    )

    Gadget "6" (
        Position 20 80
        Font "Topaz2"
        Type Slider (
            Range 0 200
            Size 160 12
            Direction HORIZONTAL
            LevelPlace RIGHT
            LevelText "ms"
            Default 40
        )
    )

    Gadget "MX" (
        Position 180 16
        Font "Topaz2p"
        Type MX (
            Data (
                "Mutually"
                "Exclusive"
                "Gadget"
                "Type"
            )
            Spacing 2
            LabelPlace RIGHT
        )
    )

    Gadget "Note" (
        Position 79 62
'        Font "Topaz2p"
        Type Slider (
            Range 0 127
            Size 100 12
            Direction HORIZONTAL
            LevelPlace RIGHT
            Default 40
            Link "Note"
        )
    )
)